home *** CD-ROM | disk | FTP | other *** search
/ westlife Cardz: Kian / westlife: Kian.iso / pc / memory.dxr / 00001.ls next >
Encoding:
Text File  |  2000-10-23  |  3.8 KB  |  118 lines
  1. on startMovie
  2.   global gExit, gNext, gCardDown, gCastOffset, gSpriteOffset, gDownLoad
  3.   gExit = 26
  4.   gNext = 25
  5.   gCardDown = the number of member "Down"
  6.   gCastOffset = the number of member "First Card" - 1
  7.   gSpriteOffset = 4
  8.   i1 = gSpriteOffset + 1
  9.   i2 = gSpriteOffset + 16
  10.   repeat with i = i1 to i2
  11.     puppetSprite(i, 1)
  12.   end repeat
  13.   setUpGame()
  14.   set the mouseDownScript to "primaryMouseDown"
  15. end
  16.  
  17. on PrimaryMouseDown
  18.   global gSprites, gMode, gCard1, gCard2, gMatchCount, gSpriteOffset, gCastOffset, gExit, gNext, gCardDown, gMissCount
  19.   spriteNo = the clickOn
  20.   if (spriteNo > gSpriteOffset) and (spriteNo < (gSpriteOffset + 17)) then
  21.     ListNo = spriteNo - gSpriteOffset
  22.     if getProp(getAt(gSprites, ListNo), #show) = 0 then
  23.       castNo = getProp(getAt(gSprites, ListNo), #image) + gCastOffset
  24.       set the member of sprite spriteNo to member(castNo)
  25.       updateStage()
  26.       setProp(getAt(gSprites, ListNo), #show, 1)
  27.       if gMode = 1 then
  28.         gCard1 = ListNo
  29.         gCard2 = getProp(getAt(gSprites, ListNo), #Match)
  30.         gMode = 2
  31.       else
  32.         if ListNo = gCard2 then
  33.           gMatchCount = gMatchCount + 1
  34.           if gMatchCount = 8 then
  35.             gDownLoad()
  36.             gMode = 3
  37.           end if
  38.         else
  39.           startwait = the ticks
  40.           endwait = startwait + (1 * 60)
  41.           repeat while 1
  42.             if the ticks > endwait then
  43.               exit repeat
  44.             end if
  45.           end repeat
  46.           gMissCount = gMissCount + 1
  47.           if gMissCount > 10 then
  48.             gTryAgain()
  49.           end if
  50.           set the member of sprite (gCard1 + gSpriteOffset) to member(gCardDown)
  51.           set the member of sprite spriteNo to member(gCardDown)
  52.           setProp(getAt(gSprites, gCard1), #show, 0)
  53.           setProp(getAt(gSprites, ListNo), #show, 0)
  54.           updateStage()
  55.         end if
  56.         gMode = 1
  57.       end if
  58.     end if
  59.     set the text of field "Match Score" to string(gMatchCount)
  60.     set the text of field "Miss Score" to string(gMissCount)
  61.     updateStage()
  62.   else
  63.     if spriteNo = gExit then
  64.       go("Quit")
  65.     else
  66.       if spriteNo = gNext then
  67.         setUpGame()
  68.         turnAllDown()
  69.       end if
  70.     end if
  71.   end if
  72. end
  73.  
  74. on turnAllDown
  75.   global gCardDown, gSpriteOffset
  76.   i1 = gSpriteOffset + 1
  77.   i2 = gSpriteOffset + 16
  78.   repeat with i = i1 to i2
  79.     set the member of sprite i to member(gCardDown)
  80.   end repeat
  81.   updateStage()
  82. end
  83.  
  84. on setUpGame
  85.   global gMode, gSprites, gImages, gMatchCount, gMissCount
  86.   gMode = 1
  87.   gMatchCount = 0
  88.   gMissCount = 0
  89.   set the text of field "Match Score" to string(gMatchCount)
  90.   set the text of field "Miss Score" to string(gMissCount)
  91.   gSprites = [[#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0], [#image: 0, #Match: 0, #show: 0]]
  92.   gImages = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  93.   repeat with i = 1 to 16
  94.     repeat while 1
  95.       X = random(16)
  96.       if getProp(getAt(gSprites, X), #image) = 0 then
  97.         setProp(getAt(gSprites, X), #image, i)
  98.         setAt(gImages, i, X)
  99.         exit repeat
  100.       end if
  101.     end repeat
  102.   end repeat
  103.   repeat with i = 1 to 8
  104.     sprite1 = getAt(gImages, i)
  105.     sprite2 = getAt(gImages, i + 8)
  106.     setProp(getAt(gSprites, sprite1), #Match, sprite2)
  107.     setProp(getAt(gSprites, sprite2), #Match, sprite1)
  108.   end repeat
  109. end
  110.  
  111. on gDownLoad
  112.   go("download")
  113. end
  114.  
  115. on gTryAgain
  116.   go("tryagain")
  117. end
  118.